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7 i ok 002500 2892 198 DC A (ENTPT POINT TO MAP ENTRY POINT TABLE 
; UiGese cs ete 1 eee ee eee QQ He Heke ee ee 2K 2 ie A i ae ke TERE EAE HEE EERE E EEE E OER ES EE EER EE REE ce eke eet 
5 * x VAC TSS SSS SSS SSS TS SS SE ST SPSS SESE SSS SSS SSS SSS SSS ES SS SSL SS SSS CS SL SS ett 22 + 2 2S 2 
6 * ACK PREREQUISITES 44% * 201 ** = 
7 xk 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3CO00) 2 
8 * NONE x 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER 2k 
9 x 204 *x PARAMETERS TO PASS TO THE TU'S AND TO PASS TO THE OPERATOR 4k 
10 JE GG IC I BOI IC IA OIG IC ICICI aK dak i ack kok ak ak ak ake kak ak 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS ** 
11 * * 206 os PURPOSE THEY ARE: i 
12 * a ofc Cc KK * 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * O INVOKE AND 
15 * x 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. 2 k 
16 eR CORI I IGG IG RICO I I OIG a III ICG IG a kok ak ak 211 ** ENTRIES ARE AS FOLLOWES xe 
ie a BBs BPEBS GoQB od E"pbermg,ST™S™ ANEA “ 
18 * 3 REA'tS INCORPORATED CK * 
19 * * 214 ** C AN EQUATE FOR THE STEP NUMBER * 
20 * NONE * 215 ** i 
71 * 216 ** RULE INFORMATION TABLE #k 
22 JAA IO O IO GIGI a ICG ICICI IGG ICI IO III kak ak ak 21] ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE ¥** 
Z3 * : 319 + UNIQUELY DEFINED AREA INDICATED BELOW’ BHD AS TABLE tS oe 
24 * sea SPECIAL INSTRUCTIONS CK x ° 
55 * ue 220 ** INDICATED WITH A X*OO00' FOR THE RULE EQUATE. * k 
26 * NONE * 221 ** - 
57 * * 222 ** $SQUES #3 
28 SS IOC IG II OR IG IG III GK io kk kak kik ak ako ak ac ak ak 2 223 ** A) RULE EQUATE X'0100! ** 
59 x e 224 = B) ADDPESS OF THE YES LEG RULE es 
30 * EK E. C.~ HISTORY eK * 
31% ° ° : 338 SFIXT ay) RULE EQUATE x'0101° <% 
32 * DATE 17AUG78 DAT OJA * 
33 * EC. 758391 BAC. 375022 BCE BEC. * ooo B) ADDRESS OF MESSAGE TO PRINT 5a 
34 * * 
a 35 IO I IO ICICI IO IORI IIR I I I I II III a kok fk aka ake afe afc afe ak a4 el $STOP a ROLE: eouaGeuewoe pis 
002500 37 I7A27 START X*'2500! START ADDRESS OF ALL 'I' TYPE PROG 
000100 38 dOUES EQU xX'0100! EQUATED VALUE FOR MDI STATEMENT 23a 8} ADDRESS OF MESSAGE * 
000101 39 OFIXT EGU. X'01018 EQUATED VALUE FOR MDI STATEMENT 2o3 Se * 
000102 40 @STOP EOU x'0102! FOUATED VALUE FOR MDI STATEMENT 234 ** $GOTO * 
000200 41 GOTO EQU  xX*'0200! EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200! % 
000201 42 @CALL EQU X'0201°8 EQUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * 
000300 43 @INPT EQU X'03008 FOUATED VALUE FOR MDI STATEMENT 231-%% C) NAME OF MAP TO GO TO % ok 
000400 44 DOUXX EQU X*QO400! FOUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE xe 
000500 US aTUXX EQOU ¥'*05008 EQUATED VALUE FOR MDI STATEMENT 239 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE x 
000600 46 @NVLD EQU xX*'0600! EQUATED VALUE FOR MDI STATEMENT 241 bs * * 
000000 47 BE EOQU xX*'QO000! FOUATE FOR EQUAL 242 ** SCALL ide 
000004 48 N Bou X' 00048 FQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X*0201' sis 
000008 49 HT EOU x'0008! EQUATE FOR HIGH 244 ** B) ADDRESS OF MESSAGE % 
00000C 50 NH FOU x'OoOoOoOCc! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL * 
000010 51 Lo EQU x¥'0010! EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU xX'OO14! EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE * 
000010 53 LT EOU xX'0010! EQUATE FOR LESS THAN 248 ** ee 
00000C 54 LE Bou x'000C! EQUATE FOR LESS THAN OR EQUAL To 249 ** SINPT 1K 
000008 55 GT EOU X'0008! FOUATE FOR GREATER THAN 250 ** A) RULE EQUATE X'0300' % 
000014 56 GE EQU X'00148 FOUATE FOR GREATER THAN OR EQUAL TO 251 ** B) INPUT TYPE feet OR HEX) * x 
000200 57 ON EOU X*'0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE <* 
000202 58 OF EQU X¥'0202t FOUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA * 
000204 59 MX EOU xX'0204' FOUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA =e 
000000 60 EBC EQU X'0000! EQUATE FOR FEBCDIC DATA TRANSFER 255 -** F) LOWER LIMIT OF GOOD DATA sed 
000001 61 HEX FOU xX*t0001! EQUATE FOR HEX DATA TRANSFER 206 -** G) HIGHER LIMIT OF GOOD DATA ++ 
000001 62 XTRNL EQU X'0001! FOUATE FOR EXTERNAL REFERENCE 257 ** =* 
000000 63 INTRNL EOU. x'OO008 EQUATE FOR INTERNAL REFERENCE 258 ** BQUXX * 
000000 64 PARM EQU X¥'0000' EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE X'0400! 
000001 65 DA EQU X¥'0001! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE * 
000002 66 UA EQU X'0002! EOUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS (INITIAL % 
000000 67 DUMMY EQU Xx'Q0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) * & 
001800 69 PID EQU *-X'ODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * 1k 
000232 70 PTYPE EQU *-X'22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 *%* F) PARAMETER TO PASS TO TU * 
00180C 71 STEPNUM FOU PID+X'000C! ADDRESS OF DECIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER %* * 
00180R 72 OPWD1 EQU PID+X'OOOF® ADDRESS OF OPTION WORD ONE 266 ** * 
001810 73 OPWD2 FOU PID+X'0010' ADDRESS OF OPTION WORD TWO 267 ** STUXX * 
001818 74 TUSTATUS EQU PID+X'0018! ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE x'0500° 2k 
00181A 75 TUWORK EQU PID+X'OOTA't ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE * 
00189A 76 TUPARM1 EQU PID+X'OO9A! ADDRESS OF PARM 1 POINTER 270 ** C) TU BRANCH TO ADDRESS + * 
00189C 77 TUPARM2 EQU PID+X'009C! ADDRESS OF PARM 2 POINTER Zi) 2* D) TYPE OF COMPARE TO MAKE ON RESULTS * 
00189R 78 TUPARM3 EOQU PID+X'OO9R! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS Xk 
0018A0 79 TUPARMY EQU PID+X'OOAO! ADDRESS OF PARM 4 POINTER 273 ** F) MASK FIELD FOR COMPARE eS 
0018A2 80 TUPARMS EQU PID+X*OOA2! ADDRESS OF PARM 5 POINTER 274 *% G) LENGTH OF PARAMETER IN BYTES * 
0018A4 81 TUPARM6 EQU PID+X'OOA4'! ADDRESS OF PARM 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU ** 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 216 *% I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER * & 
0018A8 83 TUPARMS8 EQU PID+X'OOA8! ADDRESS OF PARM 8 POINTER 277 ** # 
OO18AA 84 TUPARMO EQU PID+X'OOAA' ADDRESS OF PARM 9 POINTER 218 ** SNVLD * 
0018AC 85 TUPARM10 EQU PID+X*OOAC! ADDRESS OF PARM 10 POINTER 279 ** RULE EQUATE X'0600! * 
OO18AE 86 TUPARM11 EQOU PID+X'OOAE! ADDRESS OF PARM 11 POINTER 281 ** es 
0018B0 87 TUPARM12 EQU PID+X'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE * 
0018B2 88 TUPARM13 EOU PID+X'OOB2'" ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *K 
0018B4 89 TUPARM14 EQU PID+X'OOBY! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 90 TUPARM15 EOQU PID+X'OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: * 
0018B8 91 TUPARM16 EOU PID+X"OOB8! ADDRESS OF PARM 16 POINTER 286 ** * 
0018BA 92 TUMSGWTR EQU PID+X*OOBA' ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT =* 
0OO18BE 93 TUUA EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE * 
0018C0 94 TUDA EQU PID+X'OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 209 F* * 
0018C2 95 TUBUFF EQU PID+X*0Q0C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A X*0000! KK 
0018C4 96 TULAST EOU PID+X'OO0C4" ADDRESS OF LAST ADDRESSABLE WORD 291 ** * 
0018C6 97 TURESULN EOU PID+X*'O0OC6! ADDRESS OF LENGTH OF TU RESULTS 292. 4% MESSAGE TABLE % 
0018C8 98 TURESUL EQU PID+x'o0c8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * x 
0018FC 99 MAPNAME EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: e* 
001948 100 TUINPT EQU PID+X'0148! ADDRESS OF $INPT DATA 295 ** ** 
00196E 101 PARMARA att PID+X'O16E! ADDRESS OF S$SINPT INPUT AREA 296 ** A BOUT FOR START OF MESSAGE BLOCK bles 
001988 102 @DCADD1 EGU PID+X'01B8' MDI POINTER 29.1 A B) NUMBER OF LINES OF MESSAGE ** 
0019BA 103 @DCADD2 EQU PID+X'O1BA! MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE *¥ 
0019C4 104 SUPSTAT EQU PID+X'O01C4! ADDRESS OF MDI STATUS 29) ee. D) FIRST LINE OF MESSAGE ** 
901990 105 DEVADD EQU PID+X'O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE * 
0019DA 106 DEVADD1 EQU  PID+X'O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE * % 
OO19E4 197 DEVADD2 EQU PID+K) O1E4s ADDRESS OF DEVICE ADDRESS TABLE 2 oe pit G) ETC. nas 
+ 
0019F8 109 DEVADDY EOU prneren sees ee Oe ates RBURE CS bee 7 Ste Set SS SS SSS SSS ES ST SS SS TSS SESS SS SSS SSS SSS StL Se SSS SSCS SC CSS SSeS SS LS SS SS et ee tS 
001A02 110 DEVADDS EQU PID+X'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 Lie SSS SS SSS SSS ESSE SES LSS SSS SSS SSS SS SS Se See SCL SOCSEeCSCSCS CSS SSS L eS CSS eS Se SS 
OO1A0C 111 DEVADD6 EOU PID+X'020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 112 DEVADD7 EOU BID+K" 0216" ADDRESS OF DEVICE ADDRESS TABLE 7 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003036 0000 2141 RAY pc A (*-* WRITE PARANETEF POINTER OO30CE 4020 3294 2FE2 2256 S$RDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003038 EB6D 2142 WDATA DC X*EB6D! WRITE DATA 0030D4 5056 2257 J XIO 
00303A 6BDB 2143 DC X"6BDB! 2258 * 
00303cC 0000 2144 LGSEC DC x*'0000! LOGICAL SECTOR # 0030D6 4020 3294 2FD2 2259 SWRT MVA WRDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00303E 0000 2145 PHYSC DC X*0000! CONVERTED PHYSICAL SEC # 0030DC 5052 2260 J XIO 
003040 0000 2146 WRSID DC X*'0000! FLAG,SECTOR (WRT SECTOR ID DATA) 2261 * 

003042 0000 2147 DC X*'0000! HEAD,CYLINDER 0030DE 4020 3294 3012 2262 $RKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 
003044 FF34 2148 WSIDT DC X'FF34' WRITE SECTOR ID TEST DATA OO30E4 OBBB 2263 MVBI X*BB',R3 SET BUFFER TO B'S 

003046 5678 2149 DC X"'5678! 0030F6 4524 2F28 2264 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
003048 0000 2150 SCTST DC X'0000! READ SECTOR ID TEST DATA BUFFER QO3Z0EA 4724 0004 2265 MVWI 4,R7 SETUP BUFFER LENGTH 

00304A 0000 2151 DC X*0000! OO30EE 2BAC 2266 FFN R3 £85) INIT READ SECTOR ID BUFFER 

00304C 00000000000000000 2152 RSBA_ DC oy pe RESIDUAL STATUS BLOCK 0030FO 4020 3020 2F28 2267 MVA SChID, RKDCB+14 DATA ADDR 

003058 0000 2153 CTRO2 DC X'0000' COUNTER OO30F6 5045 2268 J XIO 

00305A 0000 2154 CTRO3 DC X"0000! COUNTER 2269 * 

00305c 0000 3155 ID00 Dc X'Q0000! ID ADDRESS TO BE SET BY USER O0030F8 4020 3294 3002 2270 SWKEW MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
00305E 1010 2156 PDATA DC X*1010! WRITE DIAG WORD 1 DATA PATTERNS OO30FE 4020 3010 3040 2271 MVA  WRSID, WKDCB+14 DATA ADDR 

003060 5555 2157 DC X'5555! * 003104 503E 2272 J XIO 

003062 AAAA 2158 DC X'AARAt * 2273 * 

003064 FFFF 2159 DC X'PFFF? * 003106 4020 3294 2F92 2274 $WSEC MVA WSDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 

2160 * 00310C 4020 2FA0 3040 2275 MVA WRSID,WSDCBt+14 DATA ADDR 

2164 PSEESE TE SLEET SAS EPERE TESTE TEN 06/1 (SECT SSRECLS SPENSER EOLA SESEL GS OES ERS 003112 5037 Sec 4 J XIO 

2163 * SUBROUTINE 003114 4020 3294 2F72 2278 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 

3164 * 00311A 5033 2279 J XIO 

2165 * PURPOSE 2280 * 

zis come 933135 $ggp 226 2353 S080 IVE, BSetggre EUs eHcEO*RRTES BbeEEROEST™ 

MPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA R 

3168 * 003122 4524 2F40 2283 MVA CSBbE, R5 * TO ALL ONES * 

2169 * CALLING SEQUENCE 003126 OF16 2284 MVBI zae8 * 

S1a9 ; ERE rept 2F30 53 8e nVA eit hs CLEAR DCB BUFFER T 

BAL CMPRW,RE NORMAL R TO ALL ONES 

5172 * m ( ) 00312E OF10 2287 MVBI EPR * 

2173 * RETURN 003130 2BAC 2288 FFN R3 e >) * 

2174 * 003132 4020 2F22 0708 2289 MVWwr x6 08 37 szorn OVERLAY OLD CONDITION CODES 

3175 * BXS (R6,2) - NORMAL 003138 CB25 2F24 2290 MVWZ SISB ZERO OUT OLD ISB VALUE 

3176 * 00313C 4CA3 2291 TBTR a tRy CLEAR INTERRUPT RECEIVED CNTL BIT 

2177 * 00313E 4CA1 2292 TBTR RN ER RESET ANY ERROR BEFORE I/0 COMMAND 

2178 6 III ROR ICC I OK IK GIO ck oi Fok i kkk a ak ak ic ai ak 003140 4C62 2293 TBTS R4, XI SET EXPECTED INTR CONTROL BIT 

2179 * 003142 4724 3290 2294 MVA OBLK, R7 SET UP CONTROL BLK FOR SUPR 
003066 4724 0004 2180 CMPRW MVWI 4,R7 COMPARE BYTE CCUNT 003146 C020 3297 2295 MVB  IOMOD41,R0 GET IDCB FUNC/MODIFIER 
OO0O306A 4324 2F28 2181 MVA SETID, R3 ADDR OF RD SEC ID DATA OO314A 402D 3296 OOFO 2296 RBTWI X'OOFO!, IOMOD REMOVE FUNCTION FROM 'IOMOD! 

OO306E 4524 3040 2182 MVA WRSID,R5 ADDR OF WR SEC ID DATA 003150 3022 2297 SRL 4,RO RIGHT JUSTIFY FUNCTION BITS IN RO 
003072 2BA6 2183 CFNEN (R3), (R5) COMPARE ID DATA 003152 F005 2298 CBI 5,R0 IDCB FUNCTION = 5? 

003074 68C0 0002 2184 BE R6, 2) RCH IF WRITE ID DATA OK 003154 1003 2299 JE SWART YES - ISSUE 'SVC WRITI" 

003078 68D2 0000 2185 B R6) * COMPARE ERROR 003156 6010 2300 SVC WRITO ISSUE WRITE DPC "4X*t OP 

2187 x KR III CIO I I ROR I IC I ia ac K ck ake ak 003158 6802 31DC 2301 B XIO8-4 GO WAIT FOR THE INTERRUPT 

2188 * 00315c 6011 2302 $WRT1 SVC WRIT1 ISSUE WRITE DPC '5X* OP 

2189 * EXECUTE INPUT & OUTPUT COMMANDS 00315E 6802 31DC 2303 B XIO8-4 GO WAIT FOR THE INTERRUPT 

2190 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 2304 * 

2191 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 003162 4020 3294 2FD2 2305 $DGWR MVA WRDCB, IODCB SET UP CONTROL BLK FOR SVC CALL 

2132 LIST AND ANY SPECIAL SWITCHES BEFORE PRANCHING TO THE 003168 6802 3188 5500 . B XIODG ISSUE START CS DIAG CMD 

3194 * : 00316C 4020 3294 2FF2 2308 $DGRD MVA RDDCB, LODCB SET UP CONTROL BLK FOR SVC CALL 

2195 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 003172 6F08 2FFE 2309 MVW RDDCB+12,R7 GFT NO. OF BYTES TO CLEAR 

2196 * : 003176 6D08 3000 2310 MVW RDDCB+14, R5 ADDR OF READ BUF 

2197 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 00317A OBFF 2311 MVBI X!FF*',R3 CLEAR TO F 

2198 * 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 00317C 2BAC 2312 FFN 3, (R5) * 

3199 * 00317E 6802 3188 2313 B XIODG ISSUE START CS DIAG CMD 

2200 * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 2315 COPY T7AXEQ O9MAR78 

lee 2305 | TE 

BA RKEW Cc 

2203 * e $ me BEND SECTOR AL: SKEWED AG 14 EGER ESE S ERNE ERO OREN SEDs WES RKO SNR 05 00 0d od aww eS 99557 ES 

2204 * 2 BAL SWKEW, R6 WRITE SECTOR ID SKEWED 2882+%* 

2205 * - 2883+* SUB-ROUTINE 

2206 * 3. BAL SWSEC, R6 WRITE SECTOR ID 2884+* 

3207 * i 2885+* EXECUTE INPUT AND OUTPUT COMMANDS 

2208 * 4 BAL SDIAG, R6 DIAGNOSTIC 2886+* 

2209 * a 2887+* PURPOSE 

2210 * 5 BAL XIOCS,R6 CYCLE STEAL STATUS 2888+ 

2311 * i 2889+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 

2212 6 BAL $SEEK, R6 SEEK 2830+% THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 

3214 * 7  #BAL $SRECL, R6 RECALIBRATE 2892+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 

2215 * Z 2893+% THE I/O COMMAND. 

2916 * 8 + BAL SRDID, R6 READ SECTOR ID 2894+% 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 

2317 * si 2895+* ISSUED BY THIS SUBROUTINE. 

2218 * 9  #-BAL $RD, RE RFAD 2896+ 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 

2219 * . 2897+ START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 

393920 * 10 BAL SRDVY, RG READ VERIFY 2898+ 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 

3221 * : 2899+* SINCE THE LAST pay INTERRUPT. IF AN INTERRUPT IS FOUND, 

2222 * 11. BAL SWRT, RO WRITE 2900+* MYSTERY INTERRUPT a) CONTROL BIT IS SET. 

3223 * 2901+* 5. MOVES THE ADDRESS GF HE I/O CONTROL BLOCK IN R7, SET THE 

2224 * 12 BAL SEDIM, R6 READ MULTI SECTOR IDS 2902+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE 'SVC START'. 

5995 * 290 3+* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/O COMMAND, TIMING 

2226 OR III I IC I IO I II I III III I tet RR IK aici ai akc ake ate ake ok ok akc 2904+* STARTS TO DETERMINE A LOST INTERRUPT. 

2227 * 2905+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 
00307C 4020 3294 2FB2 2228 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 2906+* WAS AN _ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
003082 SO7F 2229 J XIO 2907+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 

3230 * 2908+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 
003084 4020 3294 2F82 2231 $RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 29094+* 10. CHECK IF THERE WAS AN ERROR CONDITION NOT RETURN. 
00308A 507B 3232 J XIO 2910+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 

3233 * 2911+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
00308C 4020 3294 2FA2 2234 $RDID MVA RSDCB, IODCB SET UP BLOCK FOR SVC CALL 2912+* ISSUED BY THIS SUBROUTINE. 

003092 OBBB 9235 MVBI X'BBt,R3 SET BUFFER TO Bts 2913+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
003094 4524 2F28 2236 MVA SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 2914+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
003098 4724 0004 3237 MVWI 4-R7 SETUP RUFFER LENGTH 2915+ COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
00309C 2BAC 2238 FFN R3 4B5) INIT READ SECTOR ID BUFFER 2916+* 

00309E 4020 2FBO 2F28 2239 MVA SCTID, RSDCB+ 14 DATA ADDR 2917+* CALLING SEQUENCE 

0030A4 506E 2240 J XIO 2918+* 

2241 * 2919+ THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
0030A6 4020 3294 3022 2242 $RDIM MVA  RMDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 2920+* 
0030AC 4724 0084 2243 MVWI 132,R7 SET BUFFER LENGTH 2921+* --> BAL XIO OR ae ANY CYCLE STEAL COMMAND, MOD=0 
0030B0 4524 305C 2244 MVA 1D06 RS SET BUFFER ADDRESS 2922+* --> BAL XI01 PARM PRELOADED IN 'roMob' 
0030B4 OBBB 2245 MVBI X*BB! RZ SET CLEAR CHARACTERS 2923+* --> BAL XIOCS, R6 OR START CYCLE STEAL STATUS Hope 
0030B6 2BAC 2246 FFN R3 (R5 CLEAR THE BUFFER 29244+* --> BAL XIOCS~4,R6 O CS STATUS (FOLLOWING OTHER XIO 
0030B8 5064 2247 , J x16 Tere < AND DOES NOT POST INTERRUPT STATUS) 
0030BA OBFF 2249 $RD MVBI X'FFt,R3 SETRD BUFFER TO ALL F'S 292]7+* RETURN CONTROL 
0030BC 6D08 3000 2250 MVW RDDCB4+14,R5 SET UP READ BUFFER ADRS 2928+* 
0030C0 6F08 2FFE 2251 MVW RDDCB+12,R7 SET UP BUFFER LENGTH 2929+* BXS R6, 2) RETURN TO USER NO ERROR 
0030C4 2BAC 2252 FFN R3 fB5) CLEAR READ BUFFER 2930+* OR B 6{ * RETURN AND RETRY ON ERROR 
0030C6 4020 3294 2FF2 2253 $RDS$ MVA Rpbpb B, LODCB SET UP BLOCK FOR SVC CALL 29314 RK KK EH KKK RK KK RK KR KKK RR RK IO ROK ok Kk gk ok RK kako ok kK kk kkk kk 
0030CC 505A 2254 J XIO 003182 CB25 3296 2933+XIO MVWZ IOMOD,R3 SET MOF OF 0 FOR CYCLE STEAL OP 

2255 * 003186 500E 2934+ J XIO1 CS I/0'S ARE NOT RETRIED 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
2935+* 003208 4cC28 3051+ TBT R4,CS) IS CS IN PROGRESS IL 
003188 4020 3296 OO0OD 2936+XIODG MVWI xX'O00D',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS 00320A 1006 3052+ JOFF fires * NO IL 
00318E SOOA 53374 5 XIO1 GO TO CS OPS 00320C 4C6A 3053+ TBTS (R4 cE) TURN ON CYCLE STEAL INTER ERROR IL 
3938+ 00320E 6FOD 2F2E 3054+ MVW R7, DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
003190 4CAA 2939+ TBTR R4,CE RESET CS STATUS INTER ERROR INDICAT. 003212 C328 2F2F 3055+ MVB R3,DEV4+1 * AND THE COND CODE IL 
003192 4c68 2940+ BTS R4,CS SET 'CYCLE STEAL STATUS! IN PROGRESS 003216 SO0OA 3056+ J INfR1 IL 
003194 4020 3294 2FC2 29414+XIOCS MVA SpcB, TODCB SET DUP CONTROL BLOCK FOR SVC CALL 003218 4c24 3057+INTES TBT tne XE) TEST EXPECTED ATTEN / ERROR IND IL 
003198 4020 3296 OOOF 2942+ VW X'O00Ft, TOMOD SET CYCLE STEAL MODIFIER 00321A 1002 3058+ JOFF NTET BCH IF NOT EXPECTED IL 
0031A0 4C28 2943+ TBT R4,CS) IS CS IN PROGRESS, ERROR CONDITION 00321C F304 3059+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 
0031A2 1213 2944+ JON To? * YES, BYPASS SAVING I/O ADRS 00321E 1006 3060+ JE ThTP1 * YES, BCH TO END INTR SEQUENCE IL 
0031A4 G6EOD 2F26 2945+XIO1 MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 003220 4C61 3061+INTET TBTS fRa eg) SET ERROR ON I/O COMMAND CNTL BIT IL 
0031A8 4324 2F30 2946+ MVA DCBUF, R3 SFT UP TO ADRS TO MOVE DCB TABLE 003222 5004 3062+ J NTR1 IL 
0031AC 6D08 3294 2947+ MVW IODCR,R5 * AND THE FROM ADRS, ALONG WITH 3063+* THE ERROR INTERRUPT USES THE SAME IL 
0031B0 OFI1A 2948+ MVBI 26,R7 * THE NUMBER OF MOVES 3064+* ENDING SEQUENCE AS THE NORMAL INTR IL 
003182 2D64 2949+ MVFN $B) §R3) MOVE 1 STATUS WORD AND ADJUST 3066 + * 8 RK RK kK ho kok kk kk tok ok ik ok tok dork ao aK ok gok cok ook kK TO APRTE6LL 
0031B4 OBFF 2950+ MVBI 255, CLEAR CYCLE STATUS BUFFER 3067+* IL 
0031B6 4524 2F40 2951+ MVA CSBUF,R5 * TO ALL ONES * 3068+* SOUBROUTINE IL 
OO31BA OFI1A 2952+ MVBI 7P * 3069+* TL 
0031BC 2BAC 2953+ FFN R3 (P5) * 3070+* OKAY INTERRUPT RUNS ON INTERRUPT LEVEL '$INTL' IL 
0031BE 4020 2F22 0708 29 54+ mvwr x'6708',SI0IN OVERLAY OLD CONDITION CODES 3071+* IL 
0031C4 CB25 2F24 ee MVWZ $ISB,K3 ZERO OUT OLD ISB VALUE ee PURPOSE a 
+ 
0031C8 4CA1 2957+ TBTR R4,ER RESET ANY ERROR BEFORE 1/0 COMMAND 3074+%* TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL 
0OO31CA 4CA3 2958+XIO2 TBTR R4,IN CLEAP INTERRUPT RECEIVED CNTL BIT 3075+* IL 
0031CC 4724 3290 2959+ MVA OBLK,R7 SET UP CONTROL BLOCK FOR SUPVR 3076+* CALLING SEQUENCE TL 
0031D0 4CA6 2960+ TBTR (R4,$LE) RFSET LEVEL ERROR INDICATOR 3077+* IL 
0031D2 4C62 2961+ TBTS RY ,XI) SET EXPECTED INTR CONTROL BIT 3078+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED IL 
0031D4 600A 2962+ SVC TART CALL SUPVR FOR I/O COMMAND 3079+ THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE TL 
5063+% 3080+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 
0031D6 4CAT 2964+ TBTR (R4,NI) IS AN INTR EXPECTED 3081+* COMMON SECTION IS HANDLED HERE. IL 
0031D8 6ACO 0002 2965+ BN R6, 2) * NO, RETURN TO USER 3082+* IL 
2966+* 3083+* RETURN CONTROL TL 
2967+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 3084+* IL 
50684% 3085+* SVC EXIT RETURN TO USER VIA SUPVR IL 
0031DC 4524 2969+ MVWI O,R5 SET UP WORK REG FOR 'LOST INTR! 3086+* IL 
0031E0 4CA3 29704+XTO8 TBTR (Ra, IN) HAS INTERRUPT BEEN RECEIVED CEUIWEE LSS SSS SSS SSS SESS SSS SSS SSS SSS SSS SSE LEE STS SSS SST STE TFS ST SSS TESTS FSS TT TS Tee 
0031F2 1239 2971+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 003224 T706E 3088+INTOK CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
0031E4 6002 2972+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 003226 336A 3089+ SRL 13,83 POSITION INDICATORS IN R3 TL 
2973+ SUPVR WILL RETURN HERE 003228 4424 2F1A 3090+ MVA OPTN1,R4 SET UP BASE ADR&S IL 
0031E6 6002 2974+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 00322C 4C63 3091+INTR1 TBTS Ba, i) SET INTERRUPT RECEIVED IL 
2975+%* SUPVR WILL RETURN HERE 00322E 4C28 3092+ TBT R4,CS IS 'CS IN PROGRESS! ON IL 
0031F8 7DAT1 2976+ AWIL 1,-R5 ADVANCE TIME OUT COUNT 003230 1204 3093+ JON NTR? * YES, BCH AROUND UPDATE IL 
0031EC 18F9 2977+ INZ xfo8 BCH IF TIME OUT NOT REACHED 003232 C328 2F23 3094+ MVB R3,S10IN+1 SAVE INTERRUPTING CC CODE IL 
0OO031FE 4C61 2978+ TBTS RG, ER) SET ON FRROR CONTROL BIT 003236 6FOD 2F24 3095+ MVW R7,$1ISB SAVE INTR STATUS AND DEV ADRS IL 
0031FO0 68D2 2979+ B R6{ * ERR 'NO INTERRUPT! 00323A 3096+INTR2 EQU * IL 
298 7 I IC I ok iioiokiaiok ack totok aackek 0) 3 FEB] 6 ** 3097+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 
5982+ 00323A 3521 3098+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 
2983+* SUBROUTINE 00323c 0501 3099+ ABI 1,R5 * IN *It BIT IL 
59844 00323E CD24 2F60 3100+ CW SINTL,R5 IS THIS THE CORRECT INTR LEVEL TL 
2985+* I/O EXECUTE ERROR HANDLING ROUTINE 003242 1002 3101+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 
5986+% 003244 4C66 3102+ TBTS R4,$LE) SET INTR LEVEL ERROR CONTROL BIT IL 
2987+* PURPOSE 003246 4C61 3103+ TBTS R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 
2988+ 003248 4CA2 3104+INTR3 TBTR R4,X1 WAS INTERRUPT EXPECTED IL 
2989+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 00324A 1204 3105+ JON NTRX * YES, EXIT OFF THIS INTR LEVEL IL 
2990+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 00324C 4C60 3106+ TBTS (ee MI) * NO, SET MYSTERY INTR CONTROL BIT IL 
2991+* SUPERVISOR AND IT WAS NOT ACCEPTED. OO0324E F304 3107+ CBI R3 ATTENTION INTERRUPT? IL 
59924 003250 1001 3108+ JE INTRX YES IL 
2993+* CALLING SEQUENCE 003252 4Cé6C 3109+ TBTS (Ra NG) ERROR, UNEXPECTED INTERRUPT IL 
5904+* 003254 6006 3110+INTRX SVC xf FXIT fHIS LEVEL VIA SUPVR TO PGM IL 
29954+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND See ne etre er ern ene rete kere ten tase ene teen Ts Mek ee OTe 
2996+* + 
2997+* RETURN CONTROL 3114+* THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT 
59984 3115+* HAS BEEN SERVICED. THE EXERCISER FINDS AN INTERRUPT HAS BEEN 
ee B (R6) * RETURN TO USERS ERROR HANDLER Saacse RECEIVED AND BRANCHES HERE TO CHECK FOR ANY ERROR CONDITIONS. 
: 
300 143 OO I OI IO I OR a i a i i tok i tok aca ite ake ai ak 2k ak aka 2 3118+* 
3002+* 003256 4CA4 3119+XIOCK TBTR R4, XE) WAS AN ERROR EXPECTED 
3003+* CC O= DEVICE NOT ATTACHED 003258 6ACO 0002 3120+ BN Borel * YES, EXIT THIS ROUTINE 
3004+* FOR 1= DEVICE BUSY 00325C 4CA8 3121+ TBTR R4,CS) WAS ATO CS IN PROGRESS 
3005+* I/70 2= DEVICE BUSY AFTER RESET 00325E 1006 3122+ JOFF Tocv * NO, CONTINUE CHECKING 
3006+* 3= COMMAND REJECT 003260 4C2A 3123+ TBT {Re CE) ts c§ In AN ERR CONDITION 
3007+* Y= INTERVENTION REQUIRED 003262 1002 3124+ JOFF Toco * NO, BCH 
3008+* S5= INTERFACE DATA CHECK 003264 68D2 0000 3125+ B R6) * cs ERROR 
3009+* 6= CONTROLLER BUSY 003268 4c69 3126+XIOCO TBTS R4,CSA) TURN ON CS STATS AVAIL FLAG 
3010+* 7= I/O COMMAND EXCEPTED 00326A 5601 3127+ BXS R6, GO TO USER 
3011+* 00326C 4C21 3128+XIOCV TBT R4,ER) WAS ERROR INTR CONTROL BIT ON 
0031F4 706E 3012+#XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 00326E 100D 3129+ JOFF xIOcX * NO, EXIT THIS ROUTINE 
0031F6 336A 3013+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 3130+* 
0031F8 C328 2F22 3014+ MVB R3,S1O0IN * PUT IN LOG OUT AREA 003270 C520 2F23 3131+ MVB SIOIN+1,R5 GET LAST INTR CC CODE 
0031FC 68D2 0000 3015+ B (Rb) *® RFTURN TO USER ERROR HANDLER 003274 F502 3132+ CBI 2,R5 IS THIS CC=2 
3017 48 RR II IO RII I IG gtk tok tok tok 4k 1 4A DRT 6% * 003276 1003 3133+ JE xfoco YES 
30184* IL 003278 F506 3134+ CBI 6,R5 IS THIS CC=6 
3019+* SUB-ROUTINE IL 00327A 68D1 0000 3135+ BNE ge) * * NO, BCH TO ERROR HANDLER 
30 204% IL 00327E C520 2F24 3136+XIOCQ MVB ISB,R5 GET fAST ISB DATA BYTE AND IF CS 
3021+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL ‘$INTL! TL 003282 6A00 3190 3137+ BN xtoc§-4 * AVAILABLE, GO AND GET IT 
3022+* IL 003286 68D2 0000 3138+ B Anel ERROR 
3023+* PURPOSE IL 00328A CB25 2F1E 31394#XIOCX MVWZ PTN3,R3 CLEAR OUT OPTION 3 CNTL BITS 
30244 TL 00328E 5601 3140+ BXS (R6, 24 RETURN TO USER VIA REG 6 
3025+* THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR IL 31414+* ; 
3026+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 3142+ 1/0 PARAMETER LIST 
3027+* EXPECTED CODE. TL 3143+ 
30284+* IL 003290 19D0 3144+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS 
3029+* CALLING SEQUENCE IL 003292 31F4 3145+ DC A (XIOER) ERROR ROUTINE ADRS 
3030+* IL 003294 0000 3146+#IODCB DC A (*-* DCB ADRS OR LEVEL & INTR 
3031+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN 1/0 INTERRUPT IL 003296 90000 3147+IOMOD DC A (*-* MODIFIER 
3032+* IL 003298 0000 3148+ DC A (*-* ADRS OF LAST SVC CALL 
303348 RETURN CONTROL IL 00329A 0000 eee pc A (*¥-* SECOND WORD OF LAST IDCB 
+ s 
3035+% SVC EXIT RETURN TO USER VIA SUPVR Ih ees INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
+ 4 
30 374 IGOR I IOI I a IG tok tok totok tek tok T 7 00329C 19D0 3153+INTBL DC A (DEVADD) ADRS OF DEVICE ADRS 
3038+* tL 00329E 3224 3154+ « DC A (INTOK INTERRUPT OK RETURN ADRS 
3039+* CC O= CONTROLLER END ISB O= ADD STATUS IL 0032A0 3200 3155+ A(INTER INTERRUPT ERROR ADRS 
3040+* FOR 1= PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT TT 0032A2 0003 3156+INTCC DC X*0003° INTERRUPT CODE EXPECTED 
3041+* INTR 2= EXCEPTION INTERRUPT FOR 2= INCOR LENGTH T 4, 315 Bt RH KK He EK a ok KK ok ok ok dk kk lok ok kokok kook okok oko Ke KKK KI TM AY 7 6% * 
3042+* 3= DEVICE END INTERRUPT INTR 3= DCB SPEC CK IL 3159+* 
3043+* 4= ATTENTION INTERRUPT 4= STG DATA CK IL 3160+* SUBROUTINE 
30444+* 5= ATTENTION / PROGRAM CNTL; INTR 5= INV STG ADRS -IL 3161+* 
3045+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 3162+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 
3046+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 3163+* 
30474+* IL 3164+* PURPOSE 
003200 706E 3048+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 31654+* ina . 
003202 336A 3049+ SRL 13,R3 POSITION INDICATORS IN R3 IL 3166+* TO CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AN 
003204 4424 2F1A 3050+ MVA OPTN1,R4 SET UP BASE ADRS IL 3167+* 


D 
PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 


I7A27 --- FRU ISOLATION MAP P/N=832/677 EC=375222 PAGE 12 I7A27 --- FRU ISOLATION MAP P/N=8327677 EC=375222 PAGE 12A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 


3168+* TO INTERRUPT. 3283+* 
3169+% z 128848 DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
3170+* CALLING SEQUENCE 
Rae ; OOS4AR P30 aBge eK be A sebxp pron ADRS 
+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
3173+ 0034AC 181A 3288+ Dc A TUWORK) AND THE TO ADRS 
S108 na BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/0 BLK : 3283 eer COPY T7A10 23JAN78 
+ —_—-_ 
3176+* He SCONE SBD PEPER EE DET OE UNE Ee REREADT ROBREC? 32914 KEKERKEKA EEK EKKEEEREREEEREEKKEEKREREKEEEREREEKREREEREKKKKES EK EKEEKO GP FBI 6% % 
3177+* RETURN CONTROL 3292+* 
3178+* : 3233+% TEST UNIT 
+* BXS R6,2 RETURN TO USER VIA REG 6 IP OKAY 
318088 OR B (Rey IF THE DEVICE COULD NOT BE CONNECTED ere ERROR HALT CODE/DIAG SENSE BYTE CHECK 
+ 
055 EOE 3182+ EK EEAK KKK KKK KEKE EE KEKE EK EKER EERE EK EERE EK EEK EEE KEREREKEEREE KEK EEE EEE a ibe PURPOSE 
AY F 3183+$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR + 
0032A6 OBOO 3184+ MVBI 0°R3 * AND THE DATA TO USE 3299+ TO MOVE THE ERROR HALT CODE, STATUS BYTE, AND DIAG BYTES 1,2 3 
0032A8 4524 2F28 3185+ MVA DEV1,R5 * ALONG WITH THE ADRS TO USE 3300+* TO THE TU RESULTS BUFFER (TORESUL) - 
0032AC 2BAC 3186+ FFN R3 (85) * 33014+* ° 
0O032AE CB25 2F1E 3187+ MVWZ OP&N3,R3 CLEAR OLD CONTROLS FOR NEW ROUTINE 3302+* MDI=$TUXX,T7A10,01,0708, EQ 
0032B2 4724 329C 3188+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 3303+* ° 
0032B6 6014 3189+ SVC CICP * CONNECT IT TO THIS DEVICE 3304+* TORESUL BIT(S) O-7 ~w.eeeee- ERROR HALT CODE 
0032B8 6AD0 0000 3190+ BN (R6) * ERROR RETURN TO USER 3305+* 5 8-15 w.ecceee STATUS SSENSE BYTE 
31914+% 3306+* : 16-23 ....2-.- SINGLE SHOT BYTE 1 (5-HURSLEY 
0032BC 8828 2F60 3294 3192+$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 3307+* ° 24-31 weeeeeee SINGLE SHOT BYTE 2 (6-HURSLEY 
0032C2 4724 3290 3193+ MVA IOBLK,R SET R7 TO CONTROL BLOCK TO PREPARE 3308+* ° 32-39 seseeeee SINGLE SHOT BYTE 3 (7-HURSLEY 
0032C6 4020 2F22 0708 3194+ MVWI x'0708*, $IOIN INITIALIZE CONDITION CODE STORAGE 3309+* . UB-55 weeeeeee NOT USED 
0032CC CB25 2F24 3195+ MVWZ $ISB,R3 * AND CLEAR OLD ISB VALUE 3310+* . 56-63 .2.22--e- MULTISAMPLE BYTE 1 (5-HURSLEY 
0032D0 6E0D 2F26 3196+ MVW R6,LSTIO SET UP ADDRESS THAT STARTED LAST 1/0 3311+* . 64-71 .«eeeeee- MULTISAMPLE BYTE 2 (6-HURSLEY 
0032D4 600C 3197+ SVC PREP * AND CALL ON SUPVR 3312+* n 72-79 ..ceece- MULTISAMPLE BYTE 3 (7-HURSLEY 
0032D6 5601 3198+ BXS (R6, 2) RETURN TO USER 3313+* ° 80-87 ..--..--- WRAP BYTE 
3200 +2 OE OR IORI II ORI GK 1K 40K 6 A PRT 6 ** 3314+4+* 
3201+* 3315+* CALLING SEQUENCE 
3202+* SUBROUTINE 3316+* 
3203+* 3317+ MVW TUWORK, TURESUL MOVE ERROR HALT CODE §& STATUS BYTES 
3204+ DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 3318+ MVD TOWORK4+6 , TURESUL+2 SINGLE SHOT BYTES 1, 2, AND 3 
3205+* 3319+ MVD TUWORK+10,TU RESUL46 MULTISAMPLE BYTES 1, 2, AND 3 
3206+* PURPOSE 3320+* AND WRAP BYTE 
3207+* 33214+* RETURN CONTROL 
3208+* DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 3322+* 
3203+4% SET THE *NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS ee B TURTN* RETURN TO MDI SUPERVISOR 
3211+ BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. ZZ DS + KKH KK HK RK KK KK KK KK I KK KE RK KOK I KK KK KK KK 
3212+* CALLING SEQUENCE OO34AE 6FOD 2F62 3326+T7A10 MVW R7,TURTN SAVE RETURN ADDRESS 
Ea pa josdRS 4454 orin fe 3333 BVAT  XO7R108 ,STOID SET UP POINTER ADRS EN RG 
32144+x THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: ’ 
3215+* 0034BC 6803 32A4 3329+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT 1/0 BL 
3216+% ma B SERRS SET 'NG' BIT AND CONVERT DATA TO LOG 0034C0 32D8 eae DC A (SERRS) ERROR ADRS FOR INVALID PREP 
+* --> B CONX RETURN TO MDI SUPERVISOR TO TEST STS 
32184+* 0034C2 9028 181C 18D2 3332 MVD TUWORK+2 ,TURESUL#10 MOVE ERROR WORDS 4,5 
3219+% RETURN CONTROL 0034C8 8028 1827 18CD 3333 HVB TUWORK+13,TURESULt5 MOVE WRAP CHECK RESULTS 
+ * 
3221+ B TURTN* RETURN TO MDI 0034CE 6802 333A 3335+ B SCONX RETURN TO MDI CONTROLLER 
3222+* OR B (R6) * TF THE DEVICE COULD NOT BE CONNECTED anovod aa i 
3223+* END 
BJD DWH RAH HA HH HK He He He He He He He He Hee Me HK he He MK HE 2 2 2 2 a a a ae 2 he 2c 2 2 2K 2k 2K 2 2 2 i Rk 2 of oc i 2c i to ic i ie aie ake ko ak ok ook i ok 
0032D8 4020 1818 8000 3225+$ERRS MVWI X¥*8000!', TUSTATUS SET ON 'NO GOOD! STATUS BIT 
0032DE 4724 34A8 3226+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
0032E2 601A 3227+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
0032E4 4020 188E 4040 3228+ MVWI xX'4O40Ot, TUWORK+116 
0O32EA 4020 1890 4040 3229+ MVWI X*GO40', TUWORK+118 
0032FO 4020 1892 4040 3230+ MVWI X*"4O40',TUWORK+120 
0032F6 ODO 3231+$PRNT MVBI 4,R5 
0032F8 4324 181A 3232+ MVA TOWORK, R3 SET UP BUFFER STORAGE 
0032FC 6B0D 34A0 3233+ MVW R3,BUFPT 
003300 4124 337C 3234+ MVA LINE1,R 
003304 OFO4 3235+ MVBI 4,R7 
003306 O§FO08 3236+ MVBI 8,R6 
003308 2B24 3237+MVBUF MVEN (83), (21) 
00330A OFOK4 3238+ MVBI gk 
00330C OA4O 3239+ MVBI X'4O*,R2 
00330E C258 3240+ MVB  R2 (pipe 
003310 BEFB 3241+ JCT  MVBUF,R6 
003312 OF08 3242+ MVBI 8,R6 
003314 7921 002c 3243+ AWI 44 R1 
003318 BDF7 324u4 JCT  MVBUF,R5 
00331A 4020 1802 FIFO 3245+ MVWI PIDMSG10,PID+2 
003320 4020 19B8 34A6 3246+ MVA  FAKETU,@DCADD1 
003326 4020 19BA 34A2 32474 MVA DC2PT, dDCADD2 
00332c 402c 19c4 0080 3248+ OWL BrIT0080,SUPSTAT 
003332 4324 2F20 3249+ MVA $TUID, R3 SET UP BUFFER STORAGE 
003336 6F13 18BA 3290+ | BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
00333A 3252+$CONX EQU * 
00333A C720 19D0 3253+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
00333E 6013 3254+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
003340 6812 2F62 3259, B TURTN* RETORN TO MDI SUPERVISOR 
+ 
003344 0009 3257+BEGIN DC #19002 NUMBER OF LINES TO PRINT 
003346 0008 3258+ Dc A(0008 LINE LENGTH = 8 CHAR 
003348 5cC5C40C 1C2D6D9E3 3259+ Dc C'** ABORT? 
003350 0028 3260+ DC A (0040) LINE LENGTH = 40 CHAR 
003352 E3BE4COCU4OCID6CID 3261+ DC C*TUID IOIN ISB INST SECT ID DATA CSCC ! 
00337A 0028 3262+ DC A (0040) LINE LENGTH = 40 CHAR 
00337C 4OSOKO40404040404 32634+LINET DC ct t 
0033A4 0028 3264+ DC A (0040) LINE LENGTH = 4O CHAR 
0033A6 C3D5E3D340C4C3C2F 3265+ DC C'CNTL DCB1 DCB2 DCB3 DCB4Y CHAD BYCT ADRS ! 
0033CE 0028 3266+ DC A (0040) LINE LENGTH = 4O CHAR 
0033D0 4O404040404040404 32674+LINE2 DC c! t 
0033F8 0028 3268+ DC A (0040) LINE LENGTH = 4O CHAR 
0O033FA C3E260FO40C3E260F 3269+ DC C*cS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
003422 0028 3270+ DC A (0040) LINE LENGTH = 4O CHAR 
003424 4O4OK4O4O4O4040K04 32714LINE3Z DC cs ' 
00344C 0028 3272+ DC A (0040) LINE LENGTH = 40 CHAR 
OO344ER C3E260F840C3E260F 3273+ DC C'CS-8 CS-9 CS-A CS-B CS-C t 
003476 0028 3274+ DC A (0040) LINE LENGTH = 4O CHAR 
003478 4O404040404040404 3275+LINE4 DC c! ' 
+ 
0034A0 0000 3277+BUFPT DC A sea 
0034A2 3344 3278+DC2PT DC A (BEGIN) 
OO34A4 0101 3279+FIXTU DC x¥*0101' 
0034A6 0101 3280+ FAKETU pc x*0101°8 
OOF1FO 3281+PIDMSG10 EQU X' FIFO! 
000080 3282+BIT0080 EQU Xx'0080! 
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CROSS-REFERENCE LISTING 
NAME ATTRIBUTES AND REFERENCES 
$CONC s55g HEX LOCATION (OO0032A4) IN CSECT(I7A27 ) LENGTH (2) 
S$CONX ayqen HEX LOCATION (0000333A) IN CSECT(I7A27 ) LENGTH (1) 
$ERRS Ot Seana HEX LOCATION (000032D8) IN CSECT(I7A27 ) LENGTH (6) . 
$INTL Ano aoe LOCATION (OOOO02F60) IN CSECT(I7A27 ) LENGTH (2) 
$IOIN ADDRESS. HEX Si sao aoe a IN CSECT (I7A27 ) LENGTH (2) 
2289 2954 3014 3094 3131 3194 
S$ISB ADDRESS. HEX go aaa oe IN CSECT (I7A27 ) LENGTH (2) 
2290 2955 ae 3136 3195 
$LE Saba Stn HEX VALUE (00000026) 
$TUID ADDRESS. HEX LOCATION(00002F20) IN CSECT(I7A27  ) LENGTH(2) 
1899 3249 3287 3327 
$WRT1 oADDRESS. HEX LOCATION(0000315C) IN CSECT(I7A27 ) LENGTH (2) 
®@DCADD1 Soe HEX LOCATION (000019B8) IN CSECT (I7A27 ) LENGTH (1) 
@DCADD2 Oh eee HEX LOCATION(OOOO19BA) IN CSECT(I7A27 ) LENGTH (1) 
@FIXT ABSOLUTE. HEX Bee poe 
813 816 819 834 837 852 855 870 885 
888 963 978 993 996 1011 1014 #1029 £1032 
1047 1050 1089 1092 1095 1110 1125 1128 1155 
1158 1197 1212 1215 1242 21293 1296 1299 1302 
1305 1344 1359 1362 1365 1392 1395 1398 1425 
1440 1455 1470 1473 1488 1491 1530 1533 £41536 
1599 1614 1617 1620 1635 1638 1653 1692 1695 
1698 1701 1716 1731 £41734 
OaTUXX ABSOLUTE. HEX Be eee) 
729 T41 7153 765 777 789 801 822 840 
858 873 891 903 915 927 939 951 966 
981 999 1017 1035 1053 1065 1077 #1098 1113 
1131 1143 #1161 #1173 #1185 1200 1218 1230 1245 
1257 1269 1281 1308 1320 1332 1347 =1368 1380 
1401 1413 1428 1443 1458 +1476 1494 1506 £1518 
1539 1551 1563 1575 1587 1602 1623 1641 #421656 
1668 1680 1704 1719 
BEGIN Pi): waaens HEX LOCATION (00003344) IN CSECT(I7A27 ) LENGTH (2) 
BITO0O80 Soin ne HEX VALUE (00000080) 
BUFPT 393.0 HEX LOCATION (OO0034A0) IN CSECT(I7A27 ) LENGTH (2) 
CE ABSOLUTE. HEX VALUE (0000002A) 
2939 3053 3 
CICB aacgo HEX VALUE (00000014) 
CLDCB soa HEX LOCATION (O0002F82) IN CSECT(I7A27 ) LENGTH (2) 
cs ABSOLUTE. HEX Missa tae ea 
2940 2943 3051 
CSA aanec HEX VALUE (00000029) 
CSBUF ADDRESS. HEX LOCATION (OO0002F40) IN CSECT(I7A27 ) LENGTH (1) 
2070 2283 2951 
CSDCB oADDRESS. HEX LOCATION (00002FC2) IN CSECT(I7A27 ) LENGTH (2) 
DCBUF S5ne Soe LOCATION (00002F30) IN CSECT (I7A27 ) LENGTH (1) 
DC2PT Ot haa HEX LOCATION (OOO0O034A2) IN CSECT(I7A27 ) LENGTH (2) 
DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT(I7A27  ) LENGTH(1) 
1892 3148 3153 3253 
DEV1 ise1 saee LOCATION (O0002F28) IN CSECT (I7A27 ) LENGTH (2) 
DEV4 sge8 soS5 0 LOCATION (OO0002F2E) IN CSECT(I7A27 ) LENGTH (2) 
DGDCB aa HEX LOCATION (00002F72) IN CSECT(I7A27 ) LENGTH (2) 
DUMMY ABSOLUTE. HEX VALUE(00000000) 
720 1736 1748 
ENTPT ADDRESS. HEX LOCATION(00002E92) IN CSECT(I7A27 ) LENGTH(1) 
ER ABSOLUTE. HEX Bo obese ion 
2292 2957 297 3103 3128 
EXIT se HEX VALUE (00000006) 
FAKETU sie HEX LOCATION (OOOO34A6) IN CSECT (I7A27 ) LENGTH (2) 
F00033 PY aa HEX LOCATION (OO0002F00) IN CSECT(I7A27 ) LENGTH (1) 
FOOO44 ADDRESS. HEX LOCATION (OOOO2EBE) IN CSECT(I7A27 ) LENGTH (1) 
856 1159 1198 1216 1393 
FO0045 ADDRESS. HEX He ane wor ae IN Rone eae ) LENGTH (1) 
814 838 886 1051 00 1345 £1363 89 
1600 1615 1654 =1732 
FOOO4T saee. aa LOCATION (QOOO2EF2) IN CSECT(I7A27 ) LENGTH (1) 
FO00052 ADDRESS. HEX LOCATION (OOOO2ED8) IN CSECT(I7A27 b LENGTH (1) 
979 997 1243 1360 1366 1396 1399 1426 492 
1534 1618 1639 1696 1699 1702 
<FO0074 ae HEX LOCATION (OOOO02EB2) IN CSECT(I7A27 ) LENGTH (1) 
F00078 ADDRESS. HEX LOCATION (OOQO2EAG) IN CSECT(I7A27 |) LENGTH(1) 
Ae 835 853 889 994 1012 1033 048 +~.1090 
FO00081 ADDRESS. HEX LOCATION (OOOO2EE6) IN CSECT(I7A27 ) LENGTH (1) 
1111 1129 1294 W471 =1531 1693 1735 
F00082 ADDRESS. HEX Ge aoa anos ah IN CSECT (1I7A27 ) LENGTH (1) 
871 964 1015 1030 1093 1096 1213 1303 £41306 
1441 1456 1474 #41537 
F00083 iese HEX LOCATION (OOOO2FOE) IN CSECT(I7A27 ) LENGTH (1) 
HEBLK RDDRESS. HEX LOCATION (000034A8) IN CSECT(I7A27 ) LENGTH (2) 
HTOE sear HEX VALUE (O000001A) 
IDLE ABSOLUTE. HEX VALUE (00000002) 
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2155 
1836 
3153 
3048 
3057 
3061 
3088 
3110 
3091 
3096 
3104 
3144 
3146 


3147 
37 
3263 
1856 
1833 
3237 
1845 
1840 
729 
741 
753 
765 
777 
789 
801 
813 
816 
819 
822 
834 
837 
840 
852 
855 
858 
870 
873 
885 
888 
891 
903 
915 
927 
339 
951 
963 
966 
978 
981 
993 
996 
999 
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IDO0O 
IN 
INTBL 
INTER 
INTES 
INTET 
INTOK 
INTRX 
INTR1 
INTR2 
INTR3 
IOBLK 
IODCB 


IOMOD 
I7A27 
LINE1 
LSTIO 
MI 
MVBUF 
NG 

NI 
NO00001 
NO00002 
N00003 
NOOOO4 
NO00005 
N00006 
NO00007 
N00008 
NO0009 
NO00010 
NO0011 
NO0012 
N00013 
NOOO 14 
NO0015 
NO00016 
NO0017 
N00018 
NO0019 
N00020 
NO00021 
NOO0022 
NO0023 
NO0024 
NO0025 
NO0026 
N00027 
NO00028 
NO00029 
N00030 
NO00031 
NO00032 
N00033 
NO00034 
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CROSS-~REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 
2972 2974 
ADDRESS. HEX LOCATION (0000305C) 
2136 2244 
ABSOLUTE. HEX VALUE (00000023) 
291 2958 2970 
S. HEX LOCATION (0000329C) 
DRESS. HEX LOCATION (00003200) 
DRESS. HEX LOCATION (00003218) 
DRESS. HEX LOCATION (00003220) 
DRESS. HEX LOCATION (00003224) 
DRESS. HEX LOCATION (00003254) 
HEX LOCATION (0000322C) 
HEX LOCATION (0000323A) 
HEX LOCATION (00003248) 
HEX LOCATION (00003290) 


CE ooeee os 
2242 2253 2 


NO 
oO 
cow 
mo 
tJ 


WwW WwW Ww Ww 


ek ek CS 8 St eh a eh 
OOO uO U1 Ul ~o 
NO SOoOUNOuU 


UW Ww W 
io}. 
WIS 
Ao 
to 
te 
WW 
on 
ane 
oO 


> 
o 
o 
eo] 
ie] 
Sp) 
1S 7) 
e 


ADDRESS. 
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ADDRES 
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CATION (00003296) 
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SECT. 

DDRESS. HEX LOCATION (0000337C) 
DDRESS. HEX LOCATION (00002F26) 
81 2945 319 

BSOLUTE. HEX VALUE (00000020) 
DDRESS, HEX LOCATION (00003308) 
ABSOLUTE. HEX VALUE (0000002C) 

B OLUTE. HEX VALUE (00000027) 
DDRESS, HEX LOCATION (00002720) 
DDRESS. HEX LOCATION (00002738) 
D RESS. HEX LOCATION (00002756) 
DDRESS. HEX LOCATION (00002768) 
DDRESS. HEX LOCATION (00002786) 
DDRESS. HEX LOCATION (0000279E) 
DDRESS. HEX LOCATION (00002786) 
p RESS. HEX LOCATION (000027CE) 
D HEX LOCATION (000027D2) 
D HEX LOCATION (000027D6) 
DDRESS. HEX LOCATION (000027DA) 
DDRESS. HEX LOCATION (000027F2) 
DDRESS. HEX LOCATION (000027F6) 
5 823 
D 
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D 
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RES$~ HEX LOCATION (000027FA) 
RESS. HEX LOCATION (00002812) 
RESS, HEX LOCATION (00002816) 
RESS, HEX LOCATION (0000281A) 
RESS. HEX LOCATION (00002832) 
DRESS; HEX LOCATION (00002836) 
RESS. HEX LOCATION (00002848) 
RESS. HEX LOCATION (00002852) 
RESS; HEX LOCATION (00002856) 
RESS. HEX LOCATION (00002870) 
RESS. HEX LOCATION (00002888) 
RESS. HEX LOCATION (000028A2) 
RESS. HEX LOCATION (000028BA) 
RESS. HEX LOCATION (000G628D2) 
RESS. HEX LOCATION (000028EA) 
RESS; HEX LOCATION (000028EE) 
RESS. HEX LOCATION (00002906) 
RESS, HEX LOCATION (0000290A) 
RESS. HEX LOCATION (00002922) 
DRESS. HEX LOCATION (00002926) 
DRESS. HEX LOCATION (0000292A) 
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CSECT (I7A27 
CSECT (I7A27 
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LENGTH (2) 
LENGTH (2) 
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LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
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LENGTH (40) 
LENGTH (2) 
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1011 
1014 
1017 
1029 
1032 
1035 
1047 
1050, 
1053 
1065 
1077 
1089 
1092 
1095 
1098 
1110 
1113 
1125 
1128 
1131 
1143 
1155 
1158 
1161 
1173 
1185 
1197 
1200 
1212 
1215 
1218 
1230 
1242 
1245 
1257 
1269 
1281 
1293 
1296 
1299 
1302 
1305 
1308 
1320 
1332 
1344 
1347 
1359 
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1365 
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1380 
1392 
1395 
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N00035 
N00036 
N00037 
NO00038 
NO00039 
N00040 
NO0041 
NOOO042 
NO0043 
NOO0044 
NOOO45 
NO0046 
NO0047 
NOO0048 
NOO0049 
N00050 
N00051 
N00052 
N00053 
N00054 
N00055 
NO0056 
N00057 
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N00063 
NO00064 
NO00065 
N00066 
NOOOE7 
N00068 
NOO069 
N00070 
NO0071 
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CROSS~REFERENCE LISTING 


REFERENCES 


LOCATION (00002942) 
LOCATION (00002946) 
LOCATION (0000294A) 
LOCATION (00002962) 
LOCATION (00002966) 
LOCATION (0000296A) 
LOCATION (00002982) 
LOCATION (00002986) 
LOCATION (00002988) 
LOCATION (000029A2) 
LOCATION (000029BA) 
LOCATION (000029D2) 
LOCATION (000029D6) 
LOCATION (000029DA) 
LOCATION (000029DE) 
LOCATION (000029F6) 
LOCATION (000029FA) 
LOCATION (00002A12) 
LOCATION (00002A 16) 
LOCATION (00002A1A) 
LOCATION (00002A32) 
LOCATION (00002A4A) 
LOCATION (00002A48) 
LOCATION (00002A52) 
LOCATION (00002A6A) 
LOCATION (00002482) 
LOCATION (00002A9A) 
LOCATION (00002A9E) 
LOCATION (00002AB6) 
LOCATION (00002ABA) 
LOCATION (00002ABE) 
LOCATION (00002AD6) 
LOCATION (00002AEE) 
LOCATION (00002AF2) 
LOCATION (00002B0A) 
LOCATION (00002B22) 
LOCATION (00002B3A) 
LOCATION (00002B52) 
LOCATION (00002B56) 
LOCATION (00002B5A) 
LOCATION (00002B5E) 
LOCATION (00002B62) 
LOCATION (00002B66) 
LOCATION (00002B7E) 
LOCATION (00002B96) 
LOCATION (00002BAE) 
LOCATION (00002BB2) 
LOCATION (00002BCA) 
LOCATION (00002BCE) 
LOCATION (00002BD2) 
LOCATION (00002BD6) 
LOCATION (00002BEE) 
LOCATION (00002C06) 
LOCATION (00002C0A) 
LOCATION (00002C0E) 
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1401 
1413 
1425 
1428 
1440 
1443 
1455 
1458 
1470 
1473 
1476 
1488 
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NAME ATTRIBUTES 
NO00090 ADDRESS. 
582 1162 
N00091 ADDRESS. 
585 
NO00092 ADDRESS. 
588 
N00093 ADDRESS. 
591 1414 
NO0094 ADDRESS. 
594 
NO00095 ADDRESS. 
597 1429 
NO0096 ADDRESS. 
600 
N00097 ADDRESS. 
603 1444 
N00098 ada 
nN00099 ADDRESS. 
609 1459 
N00100 ADDRESS. 
612 1402 
NOO 101 PUDEEO > 
N00 102 ADDRESS. 
618 1477 
N00103 ADDRESS. 
621 730 
N00104 ADDRESS. 
624 
N00105 ADDRESS. 
627 
N00106 ADDRESS. 
630 
N00 107 ADDRESS. 
633 1519 
N00108 ADDRESS. 
636 1507 
N00109 ADDRESS. 
639 1495 
N00110 ADDRESS. 
642 
N00111 ADDRESS. 
645 
N00112 ADDRESS. 
648 
N00113 BOUaRSS: 
NO0114 ADDRESS. 
654 
N00115 ADDRESS. 
657 1588 
N00116 ADDRESS. 
660 
N00117 ADDRESS. 
663 1603 
N00118 ADDRESS. 
666 1576 
N00119 ADDRESS. 
669 1564 
N00120 a 
N00121 ADDRESS. 
675 1624 
N00122 ADDRESS. 
678 1552 
N00 123 ra haa 
N00124 ADDRESS. 
684 1642 
N00125 ADDRESS. 
687 
N00 126 ADDRESS. 
690 
N00127 ADDRESS. 
693 
N00128 ADDRESS. 
696 1681 
N00129 ADDRESS. 
699 1669 
N00130 ADDRESS. 
7O2 1657 
N00131 ADDRESS. 
705 1540 
N00132 ADDRESS. 
708 
N00 133 ADDRESS. 
711 = 1705 
N00134 ate 
N00135 ADDRESS. 
717 _ 1720 
OF ABSOLUTE. 
732 T4Yy 
894 942 
1146 1764 
1350 1371 
1578 1605 
ON ABSOLUTE. 
756 780 
1101 1188 
1509 1542 
OPTN1 ADDRESS. 
3050 3090 
OPTN3 ADDRESS. 
3139 3187 
PARMARA ADDRESS. 
739 751 
868 883 
991 1009 
1141 1153 
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CROSS-~REFERENCE LISTING 


REFERENCES 
LOCATION (00002C12) 
LOCATION (00002C2A) 
LOCATION (00002C42) 
LOCATION (00002C46) 
LOCATION (00002C5E) 
LOCATION (00002C62) 
LOCATION (00002C7A) 
LOCATION (00002C7E) 
LOCATION (00002C96) 
LOCATION (00002C9A) 
LOCATION (00002C98) 
LOCATION (00002CB6) 
LOCATION (00002CBA) 
LOCATION (00002CBE) 
LOCATION (00002CD6) 
LOCATION (00002CEE) 
LOCATION (00002D06) 
LOCATION (00002D0A) 
LOCATION (00002D0E) 
LOCATION (00002D12) 
LOCATION (00002D2A) 
LOCATION (00002D42) 
LOCATION (00002D5A) 
LOCATION (00002D74) 
LOCATION (00002D8C) 
LOCATION (00002D90) 
LOCATION (00002DAE) 
LOCATION (00002DB2) 
LOCATION (00002DB6) 
LOCATION (00002DBA) 
LOCATION (00002DD2) 
LOCATION (00002DD6) 
LOCATION (00002DDA) 
LOCATION (00002DF8) 
LOCATION (00002DFC) 
LOCATION (00002E14) 
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I7VA27 --- FRU ISOLATION MAP P/N=8327677 EC=375222 PAGE 15 LIR27 === FRU ISOLATION MAP P/N=8327677 EC=375222 PAGE 15A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
1267 1279 1291 1318 1330 1342 1357 1378 £41390 3136 XIOCQ ADDRESS. HEX LOCATION (0000327E) IN CSECT(I7A27 ) LENGTH (4) 
1411 1423 1438 1453 1468 1486 1504 1516 1528 3133 
ee 12e4 ee 1206 1597 1612 1633 1651 £41666 2941 XIOCS aa bueese: HEX LOCATION (00003194) IN CSECT (I7A27 ) LENGTH (6) 
69 PID ae maa aa Eee aia! LeValere.(y) 3128 XIOCV PC i pees HEX LOCATION (0000326C) IN CSECT(I7A27 ) LENGTH (2) 
80 81 82 83 84 85 86 87 88 3139 XIOCX ADDRESS. HEX LOCATION (0000328A) IN CSECT(I7A27 ) LENGTH (4) 
89 90 91 92 93 94 95 96 7 3129 
98 99 100 101 102 103 104 105 106 2936 XIODG ADDRESS. HEX LOCATION (00003188) IN CSECT(I7A27 ) LENGTH (6) 
107 108 109 110 111 112 3245 2306 2313 
3281 PIDMSG10 Pt aa HEX VALUE (OOOOFTFO) 3012 XIOER Sane HEX LOCATION (O000371F4) IN CSECT(I7A27 ) LENGTH (2) 
1920 PREP aeoaoe ts HEX VALUE (0000000C) 2945 XIO1 Soak aaa LOCATION (QOOOO371A4) IN CSECT(I7A27 ) LENGTH (4) 
2096 RDDCB ADDRESS. HEX Lea ee ogg e2F FZ) IN CSECT (I7A27 ) LENGTH (2) 2958 XIO2 ADDRESS. HEX LOCATION (O000031CA) IN CSECT(I7A27 ) LENGTH (2) 
2250 2251 2253 2308 2309 2310 2944 
1927 RICB qeeho HEX VALUE (00000013) 2970 XIO8 Sen esa ase ee IN CSECT (I7A27 ) LENGTH (2) 
2118 RKDCB Soe ooey LOCATION (00003012) IN CSECT(1I7A27 ) LENGTH (2) 
2129 RMDCB ADDRESS. HEX LOCATION (00003022) IN CSECT(I7A27 ) LENGTH (2) 3 kk kK ak ok oe ake ke oo a ek ak ok oie ak ode a ok ak a ok ok he kk tok kok ek kkk LAST DA GE 2 x i kK 2 a oe te ea a a kk oka oe ae ca ae a fete age ated ee ake ak oe eka ak keke oe 
2242 
2152 RSBA ADDRESS. HEX veces nen ogee To} IN CSECT(I7A27 } LENGTH (2) 
eee 2034 2045 2056 2078 2089 2100 2111 2122 
2041 RSDCB Sah Bg LOCATION (OOO02FA2) IN CSECT(I7A27 ) LENGTH (2) 
0 RO REGISTER. HEX VALUE (00000000) 
2295 2297 229 
0 R1 REGISTER. HEX CT ee 
3234 3237 3240 3243 
0 R2 REGISTER. HEX VALUE (00000002) 
3239 3240 
0 R3 REGISTER. HEX Ee ee ee 
2181 2183 2235 2238 2245 2246 2249 2252 2263 
2266 2282 2285 2288 2290 2311 2312 2933 2946 
2949 2950 2953 2955 3012 3013 3014 3048 3049 
3055 3059 3088 3089 3094 3107 3139 3184 3186 
3187 3195 3232 3233 3237 £3249 
0 RY REGISTER. HEX EE ee 
2291 2292 2293 2939 2940 2943 2957 2958 2960 
2961 2964 2970 2978 3050 3051 3053 3057 3061 
3090 3091 3092 3102 3103 3104 3106 3109 3119 
3421 3123 3126 %3128 3328 
0 R5 REGISTER. HEX Ce eae 
2182 2183 2236 2238 2244 2246 2250 2252 2264 
2266 2283 2285 2286 2288 2310 2312 2947 2949 
2951 2953 2969 2976 3098 3099 3100 3131 3132 
3134 3136 3185 3186 3231 3244 
0 R6 REGISTER. HEX ee 
27184 2185 2281 2945 2965 2979 3015 3120 3125 
3127 3135 3138 3140 3190 3196 3198 3236 3241 
3242 3329 
0 R7 REGISTER. HEX eee oer 
1900 2180 2237 2243 2251 2265 2284 2287 2294 
2309 2948 2952 2959 3054 3095 3183 3188 3193 
3226 3235 3238 3250 3253 3326 
1861 SCTID ADDRESS. HEX By one ue coe IN CSECT (I7A27 ) LENGTH (2) 
2048 2125 2181 2236 2239 2264 2267 
2052 SKDCB ADDRESS. HEX LOCATION(O0002FB2) IN CSECT(I7A27 ) LENGTH(2) 
1918 START See HEX VALUE (O000000A) 
104 SUPSTAT Song HEX LOCATION (000019C4) IN CSECT(I7A27 ) LENGTH (1) 
92 TUMSGWTR 55500 HEX LOCATION (OOOO18BA) IN CSECT(I7A27 ) LENGTH (1) 
98 TURESUL ga55  aakao LOCATION (000018C8) IN CSECT(I7A27 ) LENGTH (1) 
1890 TURTN Pe eT eet LOCATION (O0002F62) IN CSECT(I7A27 ) LENGTH (2) 
74 TUSTATUS oe HEX LOCATION (00001818) IN CSECT(I7A27 ) LENGTH (1) 
715 TUWORK ADDRESS. HEX MEE kee ae IN CSECT(I7A27 ) LENGTH (1) 
3228 3229 3230 3232 3288 3332 33 
1899 T7A02 ADDRESS. HEX io bapa oT at ae IN CSECT (I7A27 ) LENGTH (6) 
743 155 767 779 791 03 824 842 860 
875 893 905 917 929 941 953 968 983 
1001 1019 1037 1055 1067 1079 1100 1115 £1133 
1145 1163 1175 1187 #+%1202 1220 1232 1247 += «1259 
1271 1283 1310 1322 1334 1349 1370 1382 = 1403 
1415 1430 1445 1460 1478 1496 1508 1520 1541 
1553. 1565 1577 1589 1604 1625 1643 1658 1670 
1682 1706 1721 
3326 T7A 10 aye HEX LOCATION (OOOO34AE) IN CSECT(I7A27 ) LENGTH (4) 
2085 VRDCB ty es HEX LOCATION (O0002FE2) IN CSECT(I7A27 ) LENGTH (2) 
2107 WKDCB ADDRESS: HEX LOCATION (00003002) IN CSECT(I7A27 ) LENGTH(2) 
2074 WRDCB Bono one LOCATION (OOO002FD2) IN CSECT (1I7A27 ) LENGTH (2) 
1924 WRITO aon HEX VALUE (00000010) 
1925 WRIT! Oc i bene HEX VALUE (00000011) 
2146 WRSID ADDRESS. HEX LOCATION (00003040) IN CSECT(I7A27 ) LENGTH (2) 
2037 2114 #2182 2271 2275 
20 30 WSDCB SPP RESSs HEX LOCATION (O0002F92) IN CSECT(I7A27 ) LENGTH (2) 
1837 XE ABSOLUTE. HEX VALUE (00000024) 
3057 3119 
1835 XI ABSOLUTE. HEX VALUE (00000022) 
2293 2961 3104 
2933 XIO ADDRESS. HEX LOCATION (00003182) IN CSECT (I7A27 , LENGTH (4) 
ors oer 2240 2247 2254 2257 2260 2268 2272 
3119 XIOCK is aie HEX LOCATION (00003256) IN CSECT(I7A27 ) LENGTH (2) 


3126 XIOCO son HEX LOCATION (00003268) IN CSECT(I7A27 ) LENGTH (2) 


